﻿Imports CrystalDecisions.Shared
Public Class frmVisorBusAFecha
    Dim idDV As New ParameterDiscreteValue
    Public vidPago As String

    Private Sub frmVisorBusFecha_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptbus As New rptBusPagoAFecha
        idDV.Value = vidPago

        rptbus.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptbus.SetParameterValue("f1", idDV)


        crvBusqueda.ReportSource = rptbus
    End Sub
End Class